
 1000  *--------------------------------
 1010  *
 1020  *   SAMPLE PRT COMMAND
 1030  *
 1040  *--------------------------------
 1050  PRT.VECTOR  .EQ $D009
 1060  PATCH.SPACE .EQ $DF00
 1070  MON.COUT    .EQ $FDED
 1080  *--------------------------------
 1090         .OR PRT.VECTOR
 1100         JMP PRT         JUMP TO HANDLER
 1110  *--------------------------------
 1120         .OR PATCH.SPACE
 1130  
 1140  PRT    LDX #0
 1150  .1     LDA STRING,X    OUTPUT THE
 1160         BEQ .2          CONTROL
 1170         JSR MON.COUT    STRING
 1180         INX
 1190         BPL .1
 1200  
 1210  .2     RTS
 1220  *--------------------------------
 1230  STRING .HS 8D84        <CR><^D>
 1240         .AS -/PR#1/
 1250         .HS 8D          <CR>
 1260  
 1270         .HS 9C9BB8      ELITE SPACING
 1280         .HS 9BA5C3      LEFT MARGIN
 1290         .HS B0B9B0      90 DOT SPACES
 1300         .HS 00          END MARKER

